home *** CD-ROM | disk | FTP | other *** search
/ The Genius of Edison / The Genius of Edison (Version 1.0)(Softkey Multimedia)(GOE744AE-CD)(1996).ISO / pc / data / shared.cst / 00069_Script_WAIT-PREPARE VIDEO < prev    next >
Text File  |  1996-09-03  |  4KB  |  125 lines
  1. -- -----------------------------------------------------------
  2. -- Handler waitVideoProcessFrame waits for a video and processes the frame.
  3.  
  4. on waitVideoProcessFrame whichSprite
  5.   global localOptionsVisible , expressOptionsVisible
  6.   
  7.   set the movierate of sprite whichsprite = 1
  8.    repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) and not(localOptionsVisible) and (not expressOptionsVisible)
  9.     processFrame
  10.     updatestage
  11.   end repeat
  12.   set the mouseDownScript = EMPTY
  13. end
  14.  
  15. -- -----------------------------------------------------------
  16. -- Handler waitVideoNoProcess waits for a video and does not
  17. -- process the frame.
  18.  
  19. on waitVideoNoProcess whichSprite
  20.   set the movierate of sprite whichsprite = 1
  21.   
  22.   repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) 
  23.     updatestage
  24.   end repeat
  25. end
  26.  
  27. -- -----------------------------------------------------------
  28. -- Handler prepareVideoProcessFrame prepares the video in the
  29. -- given sprite by rewinding the video but not actually playing
  30. -- the video. It also processes the frame.
  31.  
  32. on prepareVideoProcessFrame whichSprite
  33.   processFrame
  34.   set the movierate of sprite whichsprite = 0
  35.   set the movieTime of sprite whichSprite to 0
  36. end
  37.  
  38. -- -----------------------------------------------------------
  39. -- Handler prepareVideoNoProcess prepares the video in the
  40. -- given sprite by rewinding the video but not actually playing
  41. -- the video. It does not process the frame.
  42.  
  43. on prepareVideoNoProcess whichSprite
  44.   set the movierate of sprite whichsprite = 0
  45.   set the movieTime of sprite whichSprite to 0
  46. end
  47.  
  48. -- -----------------------------------------------------------
  49. -- Handler waitVideoJumpStartProcessFrame waits for a video,
  50. -- and jumps to start if interrupted. It also processes the
  51. -- frame.
  52.  
  53. on waitVideoJumpStartProcessFrame whichSprite
  54.   set the movierate of sprite whichsprite = 1
  55.   
  56.   repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) 
  57.     processFrame
  58.     updatestage
  59.   end repeat
  60.   
  61.   set jumpTime = 0
  62.   set the movieTime of sprite whichSprite = jumpTime
  63.   updateStage
  64. end
  65.  
  66. -- -----------------------------------------------------------
  67. -- Handler waitVideoJumpStartNoProcess waits for a video,
  68. -- and jumps to start if interrupted. It does not processes the
  69. -- frame.
  70.  
  71. on waitVideoJumpStartNoProcess whichSprite
  72.   set the movierate of sprite whichsprite = 1
  73.   
  74.   repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) 
  75.     updatestage
  76.   end repeat
  77.   
  78.   set jumpTime = 0
  79.   set the movieTime of sprite whichSprite = jumpTime
  80.   updateStage
  81. end
  82.  
  83. -- -----------------------------------------------------------
  84. -- Handler waitVideoJumpEndProcessFrame waits for a video, and
  85. -- jumps to end if interrupted. It also processes the frame.
  86.  
  87. on waitVideoJumpEndProcessFrame whichSprite
  88.   set the movierate of sprite whichsprite = 1
  89.   
  90.   repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) 
  91.     processFrame
  92.     updatestage
  93.   end repeat
  94.   
  95.   set jumpTime = the duration of cast (the castNum of sprite whichSprite)
  96.   set the movieTime of sprite whichSprite = jumpTime
  97.   updateStage
  98. end
  99.  
  100. -- -----------------------------------------------------------
  101. -- Handler waitVideoJumpEndNoProcess waits for a video, and
  102. -- jumps to end if interrupted. It does not process the frame.
  103.  
  104. on waitVideoJumpEndNoProcess whichSprite
  105.   set the movierate of sprite whichsprite = 1
  106.   
  107.   repeat while  (not (the mouseDown)) and (the movieRate of sprite whichSprite <> 0) 
  108.     updatestage
  109.   end repeat
  110.   
  111.   set jumpTime = the duration of cast (the castNum of sprite whichSprite)
  112.   set the movieTime of sprite whichSprite = jumpTime
  113.   updateStage
  114. end  
  115.  
  116.  
  117. on setMouseDownScriptStopVideo whichSprite
  118.   --  set the mouseDownScript = "stopVideo" & string(whichSprite)
  119.   set the mouseDownScript = "beep 5"
  120. end
  121.  
  122.  
  123. on stopVideo whichSprite
  124.   set the movieRate of sprite whichSprite = 0
  125. end